
{$CLEO .cs}

//-------------MAIN---------------
thread 'BS' 

:BS_11
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
else_jump @BS_11 
jump @BS_999

:BS_999
wait 500
00BF: $TIME_HOURS = current_time_hours, $TIME_MINS = current_time_minutes
if and
$TIME_HOURS >= 0 
  4 > $TIME_HOURS
  then
jump @BS_38
  else
jump @BS_999
  end  

:BS_38
wait 0 
if 
00EC:   actor $PLAYER_ACTOR sphere 0 near_point 2146.1536 -2319.5181 13.5313 radius 100.5 100.5 50.5 
else_jump @BS_38 
jump @BS_87 

:BS_87
wait 0 
023C: load_special_actor 'RALPHE' as 1 // models 290-299 
038B: load_requested_models 
else_jump @BS_87 
jump @BS_112 

:BS_112
wait 0 
if 
  023D: special_actor 1 loaded 
else_jump @BS_112 
Actor.Create(1@, PedType.CivFemale, #SPECIAL01, 2146.3164, -2319.1501, 13.529)
0337: set_actor 1@ visibility 0
Actor.SetImmunities(1@, 1, 1, 1, 1, 1)
07CD: AS_actor 1@ walk_to 2113.8816 -2291.8992 13.5341 stop_with_angle 0.0 within_radius 1.0 
wait 1000
0337: set_actor 1@ visibility 1
jump @TOWNFIGURE_258 

:TOWNFIGURE_258
wait 500 
if or
0457:   player $PLAYER_CHAR aiming_at_actor 1@ 
00F2:   actor 1@ near_actor $PLAYER_ACTOR radius 3.0 3.0 0 
00EC:   actor 1@ sphere 0 near_point 2113.8816 -2291.8992 13.5341 radius 1.0 1.0 
04C5:   actor 1@ photographed
jf @TOWNFIGURE_258 
jump @TOWNFIGURE_336 

:TOWNFIGURE_336
Actor.DestroyWithFade(1@)
wait 5000 
jump @BS_11 